Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        DoSomething(Me)
    End Sub
 
Module Module1
    Private Sub DoSomething(ByVal f As Form1)
        f.RTB1.Text = "Text"
    End Sub
End Module