Dim 1 As String = "Danke dem Forum und dessen Mitgliedern"
Dim 2 As String = "Vb@rchiv"
 
Sub Form_Load() Handles MyBase.Load
MessageBox_Aufrufen(1, 2)
End Sub
 
Function MsgBox_Anzeigen (ByVal Danke As String, ByVal Forum As String)
MessageBox.Show(Danke, Forum)
Return Danke & vbCrLf & Forum
End Function

Kontakt:
Facebook
VB-Paradise
E-Mail