ok i have it all in a subprocedure and it opens now thanks
but i have to perform a calculation on dba and rest
it s giving me a type mismatch error

txtView.Text = txtView.Text + name + " " + sex + " " + dba + " " + rest + vbCrLf


I dimmed it the same where it is called so Im a little lost
Private Sub Spot(name As String, sex As String, dba As Integer, rest As Integer)

txtView.Text = ""
txtView.Enabled = True


Open "a:\THRFILE.DAT" For Input As #1


Do While Not EOF(1)
Input #1, name
Input #1, sex
Input #1, dba
Input #1, rest

txtView.Text = txtView.Text + name + " " + sex + " " + dba + " " + rest + vbCrLf
Loop

Close #1