"Array" aus Textfeldern

[PalinkatoR]

Moin!

Soweit passt alles. Nun soll man aber über das Programm auch DNS-Server, Gateway und Subnet Mask einstellen können, dh ich habe 5 mal 4 Felder für die 5 Adressen. Dh ich müsste diesen Code ^^ 20 mal kopieren. :ugly:

Oder eine Funktion schreiben.

• Sven Rautenberg

So, habe nun diese Funktion geschrieben

Function CheckInput(x)

On Error Resume Next

If x <> "" Then
 CheckInputInt = x
 MsgBox CheckInputInt(2)
Else
 MsgBox "Enter Numeric Values From The Interval [0;255]"
 CheckInputInt = Empty
 MsgBox CheckINputInt
 Exit Function
End If

CheckInputInt = CByte(CheckInputInt)

If Err.Number <> 0 Then
 MsgBox x & " isn't a valid value. Enter Numeric Values From The Interval [0;255]"
 CheckInputInt = Empty
 MsgBox CheckINputInt
 Exit Function
End If

End Function

Allerdings habe ich folgendes Problem
Wenn ich sie so aufrufe:

CheckInput IP0.value, IP1.value usw dann wird die Funktion nicht ausgeführt.

Wenn ich nur ein Argument benutze, funktionierts.
Oder es so aufrufe:

CheckInput IP0.value
CheckInput IP1.value
....

Warum geht es nicht mit mehreren Argumenten? Brauche ich ein Array innerhalb der Funktion (was ich zwar scho ausprobiert habe, es aber dennnoch nich funktioniert hat....aber trotzdem?) ?

Danke im Voraus