Private Sub Form_Load()
 
    Dim Var1 As String
    Dim Var2 As String
    Dim Var3 As String
    Dim Var4 As String
 
    MsgBox Unterprogramm(Var1, Var2, Var3, Var4)
 
    MsgBox "Var1" & Var1
 
End Sub
 
Public Function Unterprogramm(Var1 As String, Var2 As String, Var3 As String, _
  Var4 As String) As String
 
    Unterprogramm = "Modul durchlaufen"
    Var1 = "hat einen Wert aus dem Modul"
 
End Function

*greetz*
Tim
.
http://www.DotNetWorld.de