Public Class Form1
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim wert1 As String
        Dim wert2 As String
        wert1 = CStr(TextBox1.Text)
        wert2 = CStr(TextBox2.Text)
        MsgBox("Ihr Name lautet: " & wert2 & " " & _
        wert1, MsgBoxStyle.OkOnly, "Anzeige")
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        TextBox1.Text = " "
        TextBox2.Text = " "
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
    End Sub
End Class