While Not EOF(1)
Line Input #1, WholeLine
If WholeLine = "" Then GoTo EndMacro
NextPos = InStr(1, WholeLine, Sep)
TempVal1 = Mid(WholeLine, 1, NextPos - 1)
Pos = NextPos + 1
NextPos = InStr(Pos, WholeLine, Sep)
TempVal = Mid(WholeLine, Pos, NextPos - Pos)
strSignum = Trim(TempVal)
Pos = NextPos + 1
NextPos = InStr(Pos, WholeLine, Sep)
TempVal2 = Mid(WholeLine, Pos, NextPos - Pos)
Pos = NextPos + 1
NextPos = InStrRev(WholeLine, Sep)
TempVal3 = Mid(WholeLine, NextPos, Len(WholeLine) - NextPos)
If strSignum = "" Then GoTo NextRow
    strSQL1 = "INSERT INTO HRMS_DATA
(User,OrgUnit,JobName,ParentOrganizationUnit) VALUES('" & Trim(TempVal) & "','" & Trim(TempVal1) & "','" & Trim(TempVal2) & "','" & Trim(TempVal3) & "');"

DoCmd.RunSQL strSQL1
RowNdx = RowNdx + 1
NextRow:
Wend

GoTo EndMacro