VBプログラマ質問スレ（6.0以前） Part50

↓の処理を短くして表示したいのですが、どのようにすればいいでしょうか？
処理してる内容はどれも同じなのですが・・・。
お願いします。

If InStr(1, Replace(b, "-", ""), ".") = 4 Then
If InStr(1, b, "-") Then
ログ左右桁揃え = b
Else
ログ左右桁揃え = " " & b
End If
ElseIf InStr(1, Replace(b, "-", ""), ".") = 3 Then
If InStr(1, b, "-") Then
ログ左右桁揃え = " " & b
Else
ログ左右桁揃え = " " & b
End If
ElseIf InStr(1, Replace(b, "-", ""), ".") = 2 Then
If InStr(1, b, "-") Then
ログ左右桁揃え = " " & b
Else
ログ左右桁揃え = " " & b
End If
　　End if