Flere input til sub - Hvordan

Du skal kalde

test 1,2,3

hvis det var en funktion skulle du bruge:
returværdi=test(1,2,3)

Option Explicit

Private Sub Form_Load()
  Me.Caption = Test1(1, 2, 3) ' = 6

  Call Test2(1, 2, 3)
  'eller
  'Test2 1, 2, 3
End Sub

Public Sub Test2(tal1 As Integer, _
                tal2 As Integer, _
                tal3 As Integer)
  MsgBox tal1 + tal2 + tal3
End Sub

Public Function Test1(tal1 As Integer, _
                      tal2 As Integer, _
                      tal3 As Integer) As Integer
  Test1 = tal1 + tal2 + tal3
End Function

Private Sub Command1_Click()
    Call Test(1, 2, 3)
    Call Test(3, 2, 1)
End Sub

Sub Test(Tal1, Tal2, Tal3)
    If Tal1 = 1 Then MsgBox ("1")
    If Tal2 = 2 Then MsgBox ("2")
    If Tal3 = 3 Then MsgBox ("3")
End SubPrivate Sub Command1_Click()
    Call Test(1, 2, 3)
    Call Test(3, 2, 1)
End Sub

Sub Test(Tal1, Tal2, Tal3)
    If Tal1 = 1 Then MsgBox ("1")
    If Tal2 = 2 Then MsgBox ("2")
    If Tal3 = 3 Then MsgBox ("3")
End Sub

Jeg kopierede programstumpen over, må há trykket 2 gange på CTRL + V

Private Sub Command1_Click()
    Call Test(1, 2, 3)
    Call Test(3, 2, 1)
End Sub

Sub Test(Tal1, Tal2, Tal3)
    If Tal1 = 1 Then MsgBox ("1")
    If Tal2 = 2 Then MsgBox ("2")
    If Tal3 = 3 Then MsgBox ("3")
End Sub

Tak til alle