指定の文字より左側または右側を取り出すVBA

Dim str As String
str = "hoge fuga"
str = Left(str, InStr(str, " ")-1)  'hoge

Dim str As String
str = "hoge fuga"
str = Right(str, Len(str) - InStr(str, " "))  'fuga