Boa tarde, Tenta trocar sua variável de integer para variant. variant aceita números e textos. troque nesse ponto: Dim valor As Integer