Estou usando a seguinte linha para testar uma impressao

    Picture1.ScaleHeight = 7853
    Picture1.ScaleWidth = 11907
    Picture1.Font = "arial"
    Picture1.FontSize = "23"
    Dim HalfWidth, HalfHeight, Msg
    AutoRedraw = -1   
    Msg = "Iaosrm Ltda (99) 9999-9999"  
    HalfWidth = TextWidth(Msg) / 2 
    Text1 = HalfWidth
    Picture1.CurrentX = ScaleWidth / 2 - HalfWidth 
    Picture1.CurrentY = 0
    Picture1.Print ; Msg

 

Está acontecendo o seguinte problema: a função "HalfWidth = TextWidth(Msg) / 2" não calcula o tamanho do texto, ela calcula algo tipo (nº de caracteres * ##). Cheguei a esta conclusao ao usar o text1 para verificar isto. Ao aumentar o tamanho da fonte, o resultado foi igual ao da fonte menor. Quero saber se tem alguma funcão que calcula o tamnho real do escrito independentemente da fonte, do tamanho da fonte, tamanho da folha, etc..... preciso centralizar uma grande quantidade de texto, dai a necessidade da função. Grato.