Bilangan terbesar visual basic

Berikut ini adalah salah satu program untuk menentukan bilangan terbesar menggunakan visual basic.

Option Explicit
Dim a As Single, b As Single, c As String

Private Sub Command1_Click()
    a = CSng(Text1)
    b = CSng(Text2)
    If a > b Then
        c = a
    ElseIf b > a Then
        c = b
    Else
        c = "sama saja"
    End If
    Text3 = c
End Sub      
End Sub

Private Sub Command2_Click()  
    End
End Sub