I write Cobol format in VBA excel please help me with such as?

[Faozan]

Such as asdfghjk =>asd-fg-hijk (alphanumeric)
1234567 => 12-345-67 (numeric)

 

[Faozan]

Sub Here_We_Go()
Dim c As Range
    For Each c In Sheets("Sheet1").Range("C2:C" & Sheets("Sheet1").Cells(Rows.Count, 3).End(xlUp).Row)
        If IsNumeric(c.Value) Then
            With Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1)
                .NumberFormat = "@"
                .Value = Left(c, 4) & ".00" & "-" & Mid(c, 5, 3) & ".00" & "-" & Mid(c, 8) & ".00"
            End With
        Else
            With Sheets("Sheet3").Cells(Rows.Count, 1).End(xlUp).Offset(1)
                .Value = Left(c, 2) & "-" & Mid(c, 3, 2) & "-" & Mid(c, 5)
            End With
        End If
    Next c
End Sub

What I mean by Post #18 is to NOT use the quote button.

If refer post number and then round decimal after . Such as 1.77 to 2.00