Visual Basic

Dim strFileName as String
Dim Data as String
Dim strVariable as String

Open strFileName For Input as #1
     Do Until EOF(1)
         Line Input #1, Data
         strVariable = Right(Data, 5)
         ...Do something with strVariable
     Loop
Close #1

'This function declaration must be entered onto a single line.
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


Sub PlaySound()
    If Application.CanPlaySounds Then
        'Substitute the path and filename of the sound you want to play
        Call sndPlaySound32("c:\windows\media\chimes.wav", 0)
    End If
End Sub