Function TipVar() Dim MojaVar As Double Dim DrugaVar As String DrugaVar = VarType(MojaVar) End Functio