Tester le type d'une cellule

Bonjour à tous,
Je débute dans le VBA sous Excel. J'ai fait le tour de pas mal de forums je n'ai pas trouvé la réponse à mon problème qui est:

Je fait une fonction qui me renvoie la valeur d'une cellule. Je voudrais faire deux opérations différentes selon le type de la cellule (soit c'est un texte soit c'est un nombre)
Si c'est un texte je veux que ma fonction prenne comme valeur ce texte (en gros que ça change rien! Si c'est un texte
ma fonction sera le même texte)
Sinon (c'est un nombre) je fais une série de calculs (que j'ai déjà trouvé).

Mon problème est donc que je ne sais pas comment faire la comparaison pour savoir le type d'une cellule.
Je vous colle ce que j'ai déjà fait (ne vous préoccupez pas de ce que je fait comme calculs mon probleme se situe sur la partie en gras)

Function Impress(cellule As Range)
application.Volatile
If (le type de la cellule est un texte) Then
Impress = (la valeur de la cellule)
Else
If Range("A1") = "Franc Suisse" Then
Impress = cellule.Value
If Round(Impress, 0) < Impress Then
Impress = (Round(Impress, 0) + 1) & Range("B1")
Else
Impress = Round(Impress, 0) & Range("B1")
End If
Else
Impress = cellule.Value / Range("E1")
If Round(Impress, 0) < Impress Then
Impress = (Round(Impress, 0) + 1) & Range("B1")
Else
Impress = Round(Impress, 0) & Range("B1")
End If
End If
End if
End Function

Je pense que pour vous ça ne devrait poser aucun souci mais pour moi j'arrive pas à aller plus loin.
Pour me justifier je voudrais avoir une seule fonction le fichier final n'étant pas pour moi mais pour quelqu'un qui n'y connait rien en Excel je préfère qu'il utilise qu'une seule fonction.