Dim LineBreak As String
Dim counter As Integer
 
Do While Not EOF(iFileNumber)
    Line Input #iFileNumber, cTempStore
    For counter = 0 To Len(cTempStore)
        If Mid(cTempStore, counter, 1) = "~" Then iResult = iResult + 1
    Next counter
Loop
Close #iFileNumber