Fa un confronto con il puntatore alla stringa ottenuto tramite la funzione StrPtr. Se la stringa non e' creata, il puntatore alla stringa (meglio, alla struttura BSTR che la rappresenta) vale zero. Solo quando la stringa viene creata (anche se vuota), il puntatore diventa diverso da zero.
Puoi azzardare una cosa del genere utilizzando split
Codice:
Dim Numero As Variant Numero = Split("10,5", ",", -1, vbTextCompare) if UBound(Numero) = 0 then 'Il numero non ha la virgola else 'Il numero ha la virgola End If
Volendo puoi perfezionare il codice per fare in modo che anche se ha la virgola, ma ha 00 come decimali, il numero è intero
Ciao!