Dim GVeri As String

Dim GSay As Integer



GVeri = InputBox("İlk ve Son KAyıt", "Kayit Gir", "")

GSay = InStr(1, GVeri, "-")



If StrPtr(GVeri) = 0 Then



    Exit Sub



ElseIf GVeri = vbNullString Then

        

    MsgBox "Input Boş"

        

ElseIf GSay = 0 Then



    MsgBox "1-2 formatında yazınız."

    Exit Sub

    

Else

        

    GIlkKayit = Left(GVeri, GSay - 1)

    GSonKayit = Mid(GVeri, GSay + 1)



    MsgBox "Aktarma Kodu Buraya"

  

End If