Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        DoSomething()
    End Sub

 
Module Module1
    Private Sub DoSomething()
        Dim MyForm As New Form1
        MyForm.RTB1.Text = "Text"
    End Sub
End Module