If (Tipo.Value = "Recepcionista") Then
letras.Value = "RE"
ElseIf (Tipo.Value = "Guardia") Then
letras.Value = "GU"
ElseIf (Tipo.Value = "Azafata") Then
letras.Value = "AZ"
End If
num = num + 1
combinado = letras & num