How to substring a string to specified length?

dim temp as string

temp = "Qre60200000"

I want to display in a message box like this

6020 0000.(There should be a space inbetween).How to do that/

Thanks.