try this:

Code:
  
  Dim s_list() As String
  
  '' split a string delim. by " "
  s_list = Split(Me.txtBox.Text, " ")
  
  '' second bin or 56, zero based array
  Me.txtBox.Text = s_list(1)