Dim GVeri As String
GVeri = InputBox("İlk ve Son KAyıt", "Kayit Gir", "")
If StrPtr(GVeri) = 0 Then
MsgBox ("İptal")
Exit Sub
ElseIf GVeri = vbNullString Then
MsgBox ("İnput boş")
Exit Sub
Else
' GIlkKayit =...... ve sonrası buraya.
End If
şeklinde deneyiniz. Kod içerisine exit sub yazılmasına gerek yok.