Vb6 将整数格式化为特定的字符串格式

我想知道是否有一种方法可以将整数（789）格式化为字符串值（7.8.9）

以下是我目前为设置数字格式所做的工作：

Dim i as integer
Dim s as String
i = 789

s = Left(i, 1) & "." & Mid(i, 2, 1) & "." & Right(i, 1)

注意：整数值将始终为3位数字

Dim i As Integer
Dim s As String

i = 789
s = Format$(i, "0\.0\.0")