Hente til textboxer fra en *.txt

Private Sub Form_Load()
Dim arrSplit() As String
  arrSplit = Split("45824~Rexona~8514~20~ko~1", "~")
  If UBound(arrSplit) = 5 Then
    Text1.Text = arrSplit(0) ' 45824
    Text2.Text = arrSplit(2) ' 8514
    Text3.Text = arrSplit(3) ' 20
    Text4.Text = arrSplit(5) ' 1
  End If
End Sub

Hej shj, Tak for det
Hvordan får jeg fil.txt til at vare -> String

http://eksperten.dk/spm/252223

Ja martin_moth har fat i noget det..

Jeg har REM Do While .. Loop det kan være du skal bruge dem på et tidspunkt.

Private Sub Form_Load()
Dim arrSplit() As String
Dim intFree    As Integer
Dim strLine    As String

  intFree = FreeFile
  Open "C:\filename.txt" For Input As #intFree
  'Do While Not EOF(intFree)
    Line Input #intFree, strLine
  'Loop
  Close #intFree

  arrSplit = Split(strLine, "~")
  If UBound(arrSplit) = 5 Then
    Text1.Text = arrSplit(0) ' 45824
    Text2.Text = arrSplit(2) ' 8514
    Text3.Text = arrSplit(3) ' 20
    Text4.Text = arrSplit(5) ' 1
  End If

End Sub

Jepp,... inne på noget men ... det var 14/03-2005 15:20:32 jeg har brug for ;)
Tak for hjelpen