Dúvida no script

Utilizamos o "Dim" para definir a senha como string no exercício de senhas. Usando a mesma lógica, tentei utilizar o Dim para resolver o exercício das UF, mas está dando erro. Não posso usar desse modo?

Meu script ficou conforme abaixo:

Sub tabela_cadastro_alunos()

    Dim UF As String

    Range("a1048576").End(xlUp).Offset(1, 0).Select
    ActiveCell.Value = InputBox("Digite o nome do aluno")

    UF = ActiveCell.Offset(0, 2).Value = InputBox("Digite a sigla da UF do aluno")

    If UF = "RJ" Then
        ActiveCell.Offset(0, 1).Value = "Rio de Janeiro"

    ElseIf UF = "SP" Then
        ActiveCell.Offset(0, 1).Value = "São Paulo"

    ElseIf UF = "MG" Then
        ActiveCell.Offset(0, 1).Value = "Minas Gerais"

    ElseIf UF = "TO" Then
        ActiveCell.Offset(0, 1).Value = "Tocantins"

    Else
        MsgBox "Dados incorretos"
        ActiveCell.ClearContents
        ActiveCell.Offset(0, 2).ClearContents

    End If

End Sub