I detta exempel så skrivs det ju allt från Text1, 0-5
Men om jag vill hoppa över en kombination
Om t.ex 2'an är "0000" så ska den inte skrivas
Men alla övriga ska skrivas som inte innhåller "0000"
Hur gör jag då ?

Dim i As Integer
For i = 0 To 5
Text3 = Mid$(Text1.Text, 1 + 4 * i, 4)
Print #1, "Pris : " & Text3
Next i



Sören

<code>
Dim i As Integer
Dim Temp As string
For i = 0 To 5
Temp = Mid$(Text1.Text, 1 + 4 * i, 4)
If Temp <> = "0000" Then
Print #1, "Pris : " & Temp
End If
Next
</code>

Det vill sig inte
Får röd text på denna rad

If Temp <> = "0000" Then