Hvad gør jeg forkert i split?

guide.Text = Split(guid, "guid=")(0)

prøv sådan.

jeg tror din split metode returnere et array i hvertfald.. så du skal vælge hvilke position du vil have.

yep..
læs her
http://msdn2.microsoft.com/en-us/library/6x627e5f(VS.80).aspx

ellers prøv sådan :


Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim i As Long
Dim strArray As String
Dim arrGuide() As String

  Me.Caption = State

  If State = 12 Then
    Dim guid As String
    Text4.Text = Inet1.GetChunk(32000)
    guid = Text4.Text
    ' guide.Text = Split(guid, "guid=")

    arrGuide = Split(guid, "guid=")
    For i = LBound(arrGuide) To UBound(arrGuide)
      strArray = strArray & arrGuide(i) & vbCrLf
      Debug.Print arrGuide(i)
    Next

    guide.Text = strArray
  End If
End Sub

Jeg har fixet det selv..

Private Sub Inet1_StateChanged(ByVal State As Integer)
    Me.Caption = State
    If State = 12 Then
    Dim MyString As String
    Dim MyArray() As String
    Text4.Text = Inet1.GetChunk(32000)
    MyString = Text4.Text
    MyArray = Split(MyString, "guid=")
    guide.Text = MyArray(1)
    End If
End Sub