Alttaki gibi mantık düşündüm abey.
Kodları yanlış yazmış olabilirim bilemiyorum.Neyse benden bu kadar.Duruma göre bakarız.


Dim arr ,x as integer

Arr=Array(1,2,3,4,5,6,7,8,9,"-")

For x = Lbound(arr) to ubound(arr)
  If Instr(1,Gveri,arr(x))=0 then
     Msgbox "Format hatasi"
     Exit sub
  End if

Next