各位帮忙看一下这个代码谢~

Private Sub Form_Load()
If Dir("C://123.txt") = "" Then
FileCopy "D://456.txt", "C://456.txt"
Shell "C:\Users\fenglxuan\CDl\keygen.exe"
Dim t As Integer
t = Second(Time)
While Second(Time) <> t + 180
Wend
Shell "C:\Users\fenglxuan\sh\2.exe"
Else
t = Second(Time)
While Second(Time) <> t + 180
Wend
Shell "C:\Users\fenglxuan\sh\2.exe"
End
End If
End Sub