Visual Basic

strRunFilename = strRunFilename & " " & gstrCommandLineProgram

Shell strRunFilename, vbNormalFocus

If I understand correctly, if your code was "g" you want the result "gg-gggg-gg".

'To get a @@-@@@@-@@
Dim h As String = "23snfg33"
Dim result As String = String.Format("{0}{1}-{2}{3}{4}{5}-{6}{7}", h.Chars(0), h.Chars(1), h.Chars(2), h.Chars(3), h.Chars(4), h.Chars(5), h.Chars(6), h.Chars(7))

'To get a @@-@@@@-@@
Dim h As String = "23snfg33"
Dim result As String = String.Format("{0}-{1}-{2}", h.Substring(0, 2), h.Substring(2, 4), h.Substring(6, 2))

Public Class MaskFormater

    Private Sub New()
    End Sub

    Public Shared Function Format(ByVal input As String, ByVal mask As String) As String
        Dim maskProvider As New System.ComponentModel.MaskedTextProvider(mask)
        maskProvider.Add(input)
        Return maskProvider.ToDisplayString()
    End Function

End Class

'To get a @@-@@@@-@@
Dim h As String = "23snfg33"
Dim result As String = MaskFormater.Format(h, "aa-aaaa-aa")

No-e wrote:

"object reference set to an instance of an object"

dim frmChamber as new frmChamber <======== problem line
frmChamber.show()

dim _frmChamber as new frmChamber <======== Note underscore added, ditto on line below
_frmChamber.show()