----------Form1----------
Public Shared MyLabel as Label
 
Private Sub Form1_Load(...)
MyLabel = Label1
End Sub
 
Private Sub Form1_Click(...)
ChangeText("Hallo")
End Sub
 
----------Module1----------
Public Sub ChangeText(Text as String)
Form1.MyLabel.Text = Text
End Sub