Private Sub mnuTest_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles mnuTest.Click
 
        Umrechnen(sender.text)
 
    End Sub
 
    Private Sub Umrechnen(ByVal strhhh As String)
 
...