Are you using VB6 or VB.NET? The code sample works as advertised on VB.NET. The equivelent code in VB6 would be this:
Dim sText As String
Dim iPad As Long
sText = "Text to print Centered"
iPad = ( 40 - Len(sText) ) / 2
sText = String$( iPad, 32 ) & sText
RageInTheMachine9532