Private Function problem4() As Double
        Dim largest As Integer = 0
        Dim palDigit As Integer = 0
        Dim SarahPal As String = ""
        Dim revPal As String = ""
        For i As Integer = 1 To 1000
            For e As Integer = 1 To 1000
                palDigit = e * i
                SarahPal = Convert.ToString(palDigit)
                revPal = ""
                For x As Integer = SarahPal.Length - 1 To 0 Step -1
                    revPal &= SarahPal.Substring(x, 1)
                Next
                'Console.WriteLine(Sarah & "  " & revPal & "        ")
                If Convert.ToString(palDigit) = revPal And palDigit > largest Then
                    largest = palDigit
                End If
            Next
        Next
        Return largest
    End Function