Copy Partial text in Userform Textbox

[Mikeymike_W]

Hi,

I am wanting to copy the text from a Userform Textbox (TBRand) to another textbox (TBRandB) on the same userform.
The thing is I only want to copy over the text that occurs before the hyphon (-).

I found this bit of code which does it for a worksheet but i'm not sure how to adapt this for a userform textbox.

I appreciate any help you can give me,

Mike

Dim ws As Worksheet
Set ws = Worksheets("Analysis")

ws.Range("C5") = Left(ws.Range("B5"), (Application.WorksheetFunction.Find("-", ws.Range("B5"), 1) - 1))

 

[Trixterz]

Try copying the value directly from the TextBox itself by using whatever name you assigned to the TextBox itself.

Me.TBRandB.Value = TBRand.Value

 

[Yongle]

The thing is I only want to copy over the text that occurs before the hyphen (-)

How about ...

   Dim t As String
   t = Me.TBRand.Text
   If InStr(t, "-") > 0 Then tTBRandB.Text = Split(t, "-")(0)

 

[Mikeymike_W]

How about ...

   Dim t As String
   t = Me.TBRand.Text
   If InStr(t, "-") > 0 Then tTBRandB.Text = Split(t, "-")(0)

Yongle, thanks very much for your help, this seems to have done the job. Wee typo and missing and "End IF" but once that was sorted it did just as I wanted.

Thank you very much!