Программа неправильно определяет большее из отрицательных чисел - Visual Basic .NET

Формулировка задачи:

Имеется программа, вводишь 2 числа, высвечивается большее. Соответственно, если вводишь не число, пишет ошибку. Есть одно НО, программа неправильно определяет большее из отрицательных чисел: пишет, что -3>-1 и т.п. Как исправить? Видимо берется модуль от числа, я хз. Наверное, все дело в String.

                    Листинг программы
                
 
                        
                          
                    
Private Sub cmdПуск_Click(sender As Object, e As EventArgs) Handles cmdПуск.Click
        Dim A As String, B As String
        A = txtA.Text
        B = txtB.Text
        If IsNumeric(A) And IsNumeric(B) Then
            A = Val(txtA.Text)
            B = Val(txtB.Text)
            If A > B Then MsgBox("Большее из чисел = " + A, 0, "Результат")
            If A < B Then MsgBox("Большее из чисел = " + B, 0, "Результат")
            If A = B Then MsgBox("Числа равны", 0, "Результат")
        Else MsgBox("Ошибка! Проверьте введенные данные!", 16, "Результат")
        End If
    End Sub

Решение задачи: «Программа неправильно определяет большее из отрицательных чисел»

textual
                            Листинг программы 
                        
Dim A, B ' A As Variant, B As Variant