error in vb code can any one correct it

Function Main()

Main = DTSTaskExecResult_Success
Dim fs, fp, fg

Dim Looper
Set fs = CreateObject("Scripting.FileSystemObject")
Looper = 4

CheckCount = 1
Do Until Looper < 1

Select Case Looper
Case 1 Set fp = fs.GetFile("E:\ROR_Upload\rtn_rsn_div.txt")
Case 2 Set fp = fs.GetFile("E:\ROR_Upload\cat_rsn_cd.txt")

Case 3 Set fp = fs.GetFile("E:\ROR_Upload\rtn_cat.txt")
Case 4 Set fp = fs.GetFile("E:\ROR_Upload\rtn_rsn.txt")

End Select
If fp.Size = 0 Then
Main = DTSTaskExecResult_Fail

Exit Do
End If
Looper = Looper -1
Loop

End Function
...