VBA 文字種の指定方法

Question

VBAコードに、文字種の指定方法を追加したいのですが、どのように追加したらいいのか悩んでいます。
K19セルに実行結果が表示されるのですが、
01-1234-5678-0000　と表示されるところを、０１－１２３４－５６７８－００００と大文字で表示するようにしたいです。
現在のVBAコードは以下のとおりです。

発生している問題・エラーメッセージ

該当のソースコード

Dim s As String
Dim cnt As Long
With Worksheets("代金請求書")
cnt = .Cells(Rows.Count, 1).End(xlUp).Row - 2 + 1
Select Case cnt
Case 1: s = .Range("A2"): Worksheets("代金請求書").Range("K19").Font.Size = 11
Case 2: s = .Range("A2") & vbCrLf & .Range("A3"): Worksheets("代金請求書").Range("K19").Font.Size = 11
Case 3: s = Join3(.Range("A2:A3")) & vbCrLf & .Range("A4"): Worksheets("代金請求書").Range("K19").Font.Size = 6
Case 4: s = Join3(.Range("A2:A3")) & vbCrLf & Join3(.Range("A4:A5")): Worksheets("代金請求書").Range("K19").Font.Size = 6
End Select
End With
Worksheets("代金請求書").Range("K19").Value = s
End Sub
Function Join3(r As Range) As String
Join3 = Join(WorksheetFunction.Transpose(r), "、")
End Function

試したこと

vbWide　を使うのだろうと思うのですが、書き方がわからず悩んでいます。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

簡単なサンプルで、検証するとこんな感じでしょうか・・。

Sub test()
Dim str1 As String
Dim str2 As String

str1 = "01-1234-5678-0000"

MsgBox "変換前：" & str1

str2 = StrConv(str1, vbWide)

MsgBox "変換後：" & str2

End Sub

Comments

[退会済みユーザー]

'元のVBAを編集するとこのようなイメージでしょうか・・・

Dim s As String
Dim s2 As String
Dim cnt As Long

With Worksheets("代金請求書")
cnt = .Cells(Rows.Count, 1).End(xlUp).Row - 2 + 1

Select Case cnt

Case 1
s = .Range("A2")
s2=StrConv(s, vbWide)

Worksheets("代金請求書").Range("K19").Font.Size = 11

Case 2
s = .Range("A2") & vbCrLf & .Range("A3")
s2=StrConv(s, vbWide)
Worksheets("代金請求書").Range("K19").Font.Size = 11

Case 3
s = Join3(.Range("A2:A3")) & vbCrLf & .Range("A4")
s2=StrConv(s, vbWide)
Worksheets("代金請求書").Range("K19").Font.Size = 6

Case 4
s = Join3(.Range("A2:A3")) & vbCrLf & Join3(.Range("A4:A5"))
s2=StrConv(s, vbWide)
Worksheets("代金請求書").Range("K19").Font.Size = 6

End Select

End With

Worksheets("代金請求書").Range("K19").Value = s2
End Sub
Function Join3(r As Range) As String
Join3 = Join(WorksheetFunction.Transpose(r), "、")
End Function

[Mkasai]

いつもありがとうございます。
使わせていただきました。

[退会済みユーザー]

こちらこそ、解決ありがとうございます。