Diklogi

Code programnya :

Private Sub Command1_Click()
a = no1.Text
b = no2.Text
c = no3.Text

If a > b And a > c Then
    MsgBox "Pemenangnya Nomor Urut 1 dengan total suara " + a
ElseIf b > a And b > c Then
    MsgBox "Pemenangnya Nomor Urut 2 dengan total suara " + b
Else
    MsgBox "Pemenangnya Nomor Urut 3 dengan total suara " + c
End If
End Sub

Salam ilmu pengetahuan ^^