como saber cual fue el ultimo texbox q estubo activo

[netoec84]

He agreagado el siguiente codigo pero no me funciono:

Código:

Dim lastTextBox As String

Private Sub txt1_LostFocus()
    lastTextBox = txt1.Name
End Sub

Private Sub cmdMN_Click()
    lastTextBox.Text = Val(lastTextBox.Text) * (-1)
End Sub

Que puedo hacer??? como se puede ver necesito el nombre del objeto para poder acceder a sus datos y tambien para modificarlos pero recibo el error "calificador no valido"...

alguna idea?