Grabbing information from screen

Sub WFAccountGrab()

On Error GoTo 0

'Account Grab from filds and assigns to a Variable

Set ibmCurrentTerminal = ThisFrame.SelectedView.control

Set ibmCurrentScreen = ibmCurrentTerminal.Screen

'Get the position of Hogan Code Screen Name, then grabs the account number----------

HoganCode = ibmCurrentScreen.GetFieldText(1, 24)

If HoganCode = "THMU" Then AcctNum = ibmCurrentScreen.GetFieldText(6, 33)

If HoganCode = "XENI" Then AcctNum = ibmCurrentScreen.GetFieldText(4, 25)

If HoganCode = "IDMU" Then AcctNum = ibmCurrentScreen.GetFieldText(8, 36)

If HoganCode = "THDI" Then AcctNum = ibmCurrentScreen.GetFieldText(4, 24)

If HoganCode = "XWCR" Then AcctNum = ibmCurrentScreen.GetFieldText(4, 25)

If HoganCode = "XWFD" Then AcctNum = ibmCurrentScreen.GetFieldText(4, 25)

If HoganCode = "RSMU" Then AcctNum = ibmCurrentScreen.GetFieldText(8, 35)

If HoganCode = "RSTI" Then AcctNum = ibmCurrentScreen.GetFieldText(4, 25)

If HoganCode = "STSD" Then AcctNum = ibmCurrentScreen.GetFieldText(4, 24)

If HoganCode = "STFD" Then AcctNum = ibmCurrentScreen.GetFieldText(4, 24)

If HoganCode = "AS42" Then AcctNum = ibmCurrentScreen.GetFieldText(4, 25)

If HoganCode = "XWLI" Then AcctNum = ibmCurrentScreen.GetFieldText(4, 25)

If HoganCode = "ACPR" Then AcctNum = ibmCurrentScreen.GetFieldText(4, 26)

If HoganCode = "XAEA" Then AcctNum = ibmCurrentScreen.GetFieldText(3, 54)

If HoganCode = "CURS" Then AcctNum = ibmCurrentScreen.GetFieldText(4, 35)

If HoganCode = "XRAM" Then AcctNum = ibmCurrentScreen.GetFieldText(5, 37)

If HoganCode = "ACRM" Then AcctNum = ibmCurrentScreen.GetFieldText(3, 33)

If HoganCode = "ACDE" Then AcctNum = ibmCurrentScreen.GetFieldText(4, 33)

If HoganCode = "DD07" Then AcctNum = ibmCurrentScreen.GetFieldText(4, 25)

If HoganCode = "XADH" Then AcctNum = ibmCurrentScreen.GetFieldText(4, 25)

AcctNum = Trim(AcctNum) ' Remove leading and trailing spaces from the acct number

AcctNum = Replace(AcctNum, "-", "") ' Remove dashes (-) from the acct number

'Get the position of Hogan Code Screen Name, then grabs the account number----------

'MsgBox AcctNum

'Writing File to H:\My Documents\Attachmate\Reflection\LastAcct.txt

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.CreateTextFile("H:\My Documents\Attachmate\Reflection\LastAcct.txt", True)

a.WriteLine (AcctNum)

a.Close

End Sub