Private Sub cmdReady_Click()
Dim sLines() As String
 
sLines = Split(txtIPs.Text, vbCrLf)
 
sLines(0) = ip0
sLines(1) = ip1
sLines(2) = ip2
sLines(3) = ip3
sLines(4) = ip4
sLines(5) = ip5
sLines(6) = ip6
sLines(7) = ip7
sLines(8) = ip8
sLines(9) = ip9
sLines(10) = ip10
sLines(11) = ip11
sLines(12) = ip12
sLines(13) = ip13
sLines(14) = ip14
sLines(15) = ip15
sLines(16) = ip16
sLines(17) = ip17
sLines(18) = ip18
sLines(19) = ip19
sLines(20) = ip20
sLines(22) = ip21
sLines(21) = ip22
sLines(23) = ip23
 
 
End Sub

If IQ = 0 then
txtHello.Text= Hallo Bill Gates

mein erstes VB proggy