Visual Basic - Cadena de datos txt

Haber os comento mi idea y si os ocurre como solucionarla.

tengo unas cadenas de datos como esta:

22/3/2010 14:00 14:45 Sala1 Ocupada 15:00 15:00

y quiero por un lado coger los datos lo dela fecha del día en curso y por otro lado de una sala en concreto "sala "

ejemplo de como quedaría en un text1.text saldría los de la sala 2 del dia actual


24/3/2010 14:00 14:45 Sala2 Ocupada
24/3/2010 19:00 19:45 Sala2 Ocupada

Y el código que tengo de momento es este


Private m_Pos As Integer

Sub buscar_cadena(ByVal Posicion As Integer)

Dim p As Integer, Frase As String

Frase = Text_Buscar

p = InStr(Posicion, Text1, Frase)

If p > 0 Then
m_Pos = p
Label1 = p

With Text1
.SelStart = m_Pos - 1
.SelLength = Len(Frase)
.SetFocus
End With
Else
MsgBox "No se encontró la frase", vbInformation
Text1.SetFocus
End If


End Sub


Private Sub Command1_Click()
'Busca a pratir de la primera pocición
Call buscar_cadena(1)
End Sub

Private Sub Command2_Click()
'Busca a partir del valor que tenga m_Pos

Call buscar_cadena(m_Pos + 1)

End Sub

Private Sub Command3_Click()

Open "C:\Documents and Settings\jlagares\Desktop\datos.txt" For Input As #1

Dim linea As String, total As String
Do Until EOF(1)
Line Input #1, linea
total = total + linea + vbCrLf
Text1.Text = total
Loop


Close #1
End Sub

Private Sub Form_Load()
Command1.Caption = "Buscar"
Command2.Caption = "Buscar siguiente"
Me.Caption = "Ejemplo de InStr "

End Sub