Help with Userform textbox value, vlookup, copy to clipboard

**Leith Ross** · 07-01-2012, 04:36 PM

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

**etuckram** · 07-01-2012, 04:49 PM

Originally Posted by Leith Ross

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

I appreciate your help, but its not working, its giving me the same value