Prvo, kakav to argument predajes u funkciju? Ta varijabla b1 je potpuno besmislena i nepotrebna :P
Evo rjesenje:
'module
'r1 je textbox, b1 je label, form se zove form1
Public Sub postaviMe()
If Form1.r1.Text > "6" Then Form1.b1.Caption = "0"
If Form1.r1.Text = "6" Then Form1.b1.Caption = "0"
If Form1.r1.Text = "5" Then Form1.b1.Caption = "1"
If Form1.r1.Text = "4" Then Form1.b1.Caption = "2"
If Form1.r1.Text = "3" Then Form1.b1.Caption = "3"
If Form1.r1.Text = "2" Then Form1.b1.Caption = "4"
MsgBox "lol"
End Sub
'form
Private Sub Command1_Click()
Call postaviMe
End Sub
P.S. Iako se VB ne buni na usporedjivanje stringova, to nije dobra praksa. Koristi radje numericke tipove, npr:
If Val(Form1.r1.Text) = 5 Then Form1.b1.Caption = "1"