Help with Userform textbox value, vlookup, copy to clipboard

Hello etuckram,

Private Sub txtDomain_AfterUpdate()

    Dim i as Long
    Dim Text As String

        Text = txtDomain.Value
        If InStr(1, Text, ".")  > 0 Then txtDomain.Value = Right(Text, Len(Text) - i)
    
End Sub