Alttaki gibi exit subları ekleyin.

Dim GVeri As String
    GVeri = InputBox("İlk ve Son KAyıt", "Kayit Gir", "")
    If StrPtr(Gveri) = 0 Then
        MsgBox ("İptal")
Exit sub
    ElseIf result = vbNullString Then
        MsgBox ("İnput boş")
Exit sub
    Else
        
  '  GIlkKayit =...... ve sonrası buraya. 


    End If