如何指定某段文字颜色

我想把number="你好，你是什么地方的？"中的"地方"变成指定的红色，该怎么写

Rem 聊天窗口
VBSCall FindPic(0,0,600,600,"聊天窗口.bmp",0.92,intX,intY)
If intX >0
    Gosub 输入文字信息
Else 
    If X<1
        Gosub 聊天窗口
    EndIf 
EndIf 
////////////////////////////////////////////////////////////////////////////
Rem 输入文字信息
MoveTo intX+200,intY+60
LeftClick 1

dim str1,number
number="你好，你是什么地方的？"
VBS Randomize
Str1=Chr(Int(100*Rnd)+48)

number=number&str1
SayExpression number --------------------编程问答-------------------- 对于字符串本身来说是没有颜色的，也没有字体，字体大小等这些信息，它表示的就只是一段文字 。

你说的颜色，是用于显示这段文字的控件，它的前景色。

补充：VB ,  基础类