If Ide = True Then
Ide = False
WebBrowser1.Document.All.Item("message").Value = Text3.Text
WebBrowser1.Document.All.Item("gb_form_button").Click
End If

'********************************************
'**************************************************
'**************Code Bot Fotolog Vb6******************
'**************Autor: By LixKeÜ *********************
'**********RESPETAR LA FIRMA DE AUTOR**************
'*************************************************
'*************************************************
Dim ne As Boolean, Ide As Boolean, Datos As String
Private Sub Command1_Click()
ne = True
WebBrowser1.Navigate "http://account.fotolog.com/login"
End Sub

Private Sub Command2_Click()
Dim matriz
matriz = Split(Text5.Text, "#")
For n = 1 To UBound(matriz)
WebBrowser1.Navigate "http://www.fotolog.com/" & matriz(n)
 Ide = True
 Text4.Text = "http://www.fotolog.com/" & matriz(n)
 Espera 18000
Next
End Sub

Private Sub Form_Load()
ne = False
Ide = False
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
If ne = True Then
ne = False
Me.WebBrowser1.Document.Forms(0).u_name.Value = Text1.Text
Me.WebBrowser1.Document.Forms(0).p_word.Value = Text2.Text
Me.WebBrowser1.Document.Forms(0).submitIt.Click

WebBrowser1.Navigate "http://www.fotolog.com/" & Text1.Text
Call COLEcTOR
End If

If Ide = True Then
Ide = False
WebBrowser1.Document.All.Item("message").Value = Text3.Text
WebBrowser1.Document.All.Item("gb_form_button").Click
End If
End Sub

Sub mensajes()
WebBrowser1.Document.All.Item("message").Value = Text3.Text
WebBrowser1.Document.All.Item("gb_form_button").Click
End Sub

Public Function Espera(MiliSegundos As Single) 'Función que me dejo lympex para que se pueda esperar un tiempo x; o sea un sleep
  Dim ComienzoSeg As Single
  Dim FinSeg As Single
  ComienzoSeg = Timer
  FinSeg = ComienzoSeg + (MiliSegundos / 1000)
  Do While FinSeg > Timer
      DoEvents
      If ComienzoSeg > Timer Then
          FinSeg = FinSeg - 24 * 60 * 60
      End If
  Loop
End Function

Sub COLEcTOR()
Espera 15000
Datos = WebBrowser1.Document.documentelement.innerhtml
Dim PosIni As Integer, PosFin As Integer, matriz() As String
matriz = Split(Datos, vbCrLf)
For n = 0 To UBound(matriz)
    PosIni = InStr(matriz(n), "<P><A href=" & Chr(34) & "http://www.fotolog.com/")
    If PosIni <> 0 Then
        PosFin = InStr(PosIni, matriz(n), """>")
        Text5.Text = Text5.Text & "#" & Mid(matriz(n), PosIni + 35, PosFin - (PosIni + 35))
    End If
Next
Command2.Enabled = True
End Sub

Quizas esto te ayude viejito
este postea en fotolog,
donde message es el "name" del campo de mensajes
y "gb_form_button" es el boton para postear

Controles:
- Un boton (Command1)
- Una caja de texto (Text1)
- Microsoft Internet Control (WebBrowser)



Option Explicit
 
Private Sub Command1_Click()
 
WebBrowser.Document.All.Item("message").Value = Text1.Text
WebBrowser.Document.All.Item("gb_form_button").Click
 
End Sub


Solo debes trabajartelo y obvio
saber lo baaasiico! de html

Suerte
Saludos desde Chile