Sende mail, hvis G3>0

Godmorgen
Jeg har et regneark hvor jeg har lavet en makro der kan sende et udklip af siden i en mail. Den sendes til en bestemt mailadresse test@test.dk
Nu ønsker jeg at sende til en anden mail, hvis G3>0, så skal den sende til min@mail.dk
Min kode ser sådan ud

Sub MailNyOrdre()
ActiveSheet.Unprotect
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
Set rng = Nothing
Set rng = Range("A1:K30").SpecialCells(xlCellTypeVisible)
With Application
    .EnableEvents = False
    .ScreenUpdating = False
End With
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
    .To = ThisWorkbook.Sheets("Data").Range("B4").Value
    .CC = ""
    .BCC = ""
    .Subject = "Nyt indkøb " & Ark1.Range("D1")
    .HTMLBody = RangetoHTML(rng)
    .Display
End With
On Error GoTo 0
With Application
    .EnableEvents = True
    .ScreenUpdating = True
End With
Set OutMail = Nothing
Set OutApp = Nothing
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("B3").Select
End Sub