The VBA Split function is used to split a string of characters according to a delimiter to produce an array of values.
Split(text, separator)
Or
Split(text, separator, limit)
Separating the site name "www.moonexcel.com.ua" with the delimiter "." to get 4 substrings in the array:
Sub SplitExample1() text = "www.moonexcel.com.ua" array = Split(text, ".") MsgBox array(0) 'Returns: www MsgBox array(1) 'Returns: moonexcel MsgBox array(2) 'Returns: com MsgBox array(3) 'Returns: ua End Sub
If necessary, you can limit the number of elements in the array:
Sub SplitExample2() text = "www.moonexcel.com.ua" array = Split(text, ".", 2) MsgBox array(0) 'Returns: www MsgBox array(1) 'Returns: moonexcel.com.ua End Sub
If you only need to retrieve a single substring (in this example, the middle substring "moonexcel"), you can directly specify an array element to retrieve it:
Sub SplitExample3() text = "www.moonexcel.com.ua" middle = Split(text, ".")(1) MsgBox middle 'Returns: moonexcel End Sub