Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Sub cmdEnd_Click()
    End
End Sub
 
Private Sub cmdOK_Click()
    If txtEMail.Text = "" Then Exit Sub
    Call ShellExecute(Me.hWnd, "open", "mailto: " & txtEMail, "", "", 1)
End Sub
 
[color=green]'stehende in der Mitte Adresse kann man beliebig ändern (ich habe 
' als Beispiel google genannt)
 
Private Sub lblVBAT_Click()
    Call ShellExecute(Me.hWnd, "open", "www.google.de", "", "", 1)
End Sub
 
Private Sub txtEMail_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then cmdOK_Click
End Sub